home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / src / lib / asm / logic.s < prev    next >
Encoding:
Text File  |  1998-10-04  |  1.7 KB  |  74 lines
  1. ;
  2. ; logic.s -- an ACE linked library object file: logic functions.
  3. ; Copyright (C) 1998 David Benn
  4. ; 
  5. ; This program is free software; you can redistribute it and/or
  6. ; modify it under the terms of the GNU General Public License
  7. ; as published by the Free Software Foundation; either version 2
  8. ; of the License, or (at your option) any later version.
  9. ;
  10. ; This program is distributed in the hope that it will be useful,
  11. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. ; GNU General Public License for more details.
  14. ;
  15. ; You should have received a copy of the GNU General Public License
  16. ; along with this program; if not, write to the Free Software
  17. ; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  18. ;
  19. ; Author: David J Benn
  20. ;   Date: 3rd-30th November, 1st-13th December 1991,
  21. ;      20th, 23rd,25th-27th January 1992, 
  22. ;         2nd,4th,6th,12th-19th,21st-24th,29th February 1992,
  23. ;      1st,14th March 1992,
  24. ;      4th,7th,21st,22nd,26th April 1992,
  25. ;      2nd,3rd,5th,7th,8th,10th-17th May 1992,
  26. ;      6th,8th,11th,12th,28th,30th June 1992,
  27. ;      1st-3rd,13th,14th,18th-20th,22nd July 1992,
  28. ;      9th August 1992,
  29. ;      5th,8th December 1992
  30. ;
  31. ; a4,a5 are used by link/unlk.
  32. ; a6 is library base holder.
  33. ; a7 is stack pointer. 
  34. ; d7 is used for array index calculations.
  35. ;
  36.  
  37.     ; logic functions
  38.     xdef    _impw
  39.     xdef    _impl
  40.     xdef    _eqvw
  41.     xdef    _eqvl
  42.  
  43.     SECTION logic_code,CODE
  44.  
  45. ;*** LOGIC OPERATORS ***
  46.    
  47. ;
  48. ; logical operator IMP: d0 = d1 imp d0
  49. ;
  50. _impw:
  51.        not.w d1
  52.           or.w  d1,d0
  53.         rts
  54.  
  55. _impl:
  56.           not.l d1
  57.           or.l  d1,d0
  58.         rts
  59.  
  60. ;
  61. ; logical operator EQV: d0 = d1 eqv d0
  62. ;
  63. _eqvw:
  64.         eor.w d1,d0
  65.       not.w d0
  66.       rts
  67.  
  68. _eqvl:
  69.       eor.l d1,d0
  70.       not.l d0
  71.       rts
  72.  
  73.     END
  74.